home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Gráficos & Edición / PhotoFlash / PhotoFlash™ Trial / PhotoFlash™ Trial.rsrc / TEXT_2090.txt < prev    next >
Encoding:
Text File  |  1993-08-05  |  588 b   |  19 lines
  1. /foureq {4 index eq 8 1 roll
  2. 4 index eq 8 1 roll
  3. 4 index eq 8 1 roll
  4. 4 index eq 8 1 roll
  5. pop pop pop pop and and and} def
  6. hascolor {/band 0 def} {/band 5 def} ifelse
  7. /setcmykcolor where {pop
  8. 1 0 0 0 setcmykcolor _currentgray 1 exch sub
  9. 0 1 0 0 setcmykcolor _currentgray 1 exch sub
  10. 0 0 1 0 setcmykcolor _currentgray 1 exch sub
  11. 0 0 0 1 setcmykcolor _currentgray 1 exch sub
  12. 4 {4 copy} repeat
  13. 1 0 0 0 foureq {/band 1 store} if
  14. 0 1 0 0 foureq {/band 2 store} if
  15. 0 0 1 0 foureq {/band 3 store} if
  16. 0 0 0 1 foureq {/band 4 store} if
  17. 0 0 0 0 foureq {/band 6 store} if} if
  18. blank {/band 6 store} if
  19.